Функции для вывода изображений и видео

procedure DrawImage(x,y: real; fname: string);
        Рисует изображение из файла fname в позиции (x,y)
procedure DrawImage(x,y,w,h: real; fname: string);
        Рисует изображение из файла fname в позиции (x,y) размера w на h
procedure DrawImageUnscaled(x,y: real; fname: string);
        Рисует немасштабированное изображение из файла fname в позиции (x,y)
procedure DrawVideo(x,y: real; fname: string);
        Выводит видеоиз файла fname в позицию (x,y)
function ImageHeight(fname: string): integer;
        Высота изображения в пикселах
function ImageSize(fname: string): (integer,integer);
        Размер изображения в пикселах
function ImageWidth(fname: string): integer;
        Ширина изображения в пикселах